home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / Events.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  5.4 KB  |  278 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Events.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__EVENTS__') = 'UNDEFINED' THEN
  18. __EVENTS__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24. ;        include 'ConditionalMacros.a'                                ;
  25.  
  26.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  27.     include 'Quickdraw.a'
  28.     ENDIF
  29. ;        include 'MixedMode.a'                                        ;
  30. ;        include 'QuickdrawText.a'                                    ;
  31.  
  32.     IF &TYPE('__OSUTILS__') = 'UNDEFINED' THEN
  33.     include 'OSUtils.a'
  34.     ENDIF
  35. ;        include 'Memory.a'                                            ;
  36.  
  37. nullEvent                        EQU        0
  38. mouseDown                        EQU        1
  39. mouseUp                            EQU        2
  40. keyDown                            EQU        3
  41. keyUp                            EQU        4
  42. autoKey                            EQU        5
  43. updateEvt                        EQU        6
  44. diskEvt                            EQU        7
  45. activateEvt                        EQU        8
  46. osEvt                            EQU        15
  47. ; event mask equates 
  48. mDownMask                        EQU        $0002                ; mouse button pressed 
  49. mUpMask                            EQU        $0004                ; mouse button released 
  50. keyDownMask                        EQU        $0008                ; key pressed 
  51. keyUpMask                        EQU        $0010                ; key released 
  52. autoKeyMask                        EQU        $0020                ; key repeatedly held down 
  53. updateMask                        EQU        $0040                ; window needs updating 
  54. diskMask                        EQU        $0080                ; disk inserted 
  55. activMask                        EQU        $0100                ; activate/deactivate window 
  56. highLevelEventMask                EQU        $0400                ; high-level events (includes AppleEvents) 
  57. osMask                            EQU        $8000                ; operating system events (suspend, resume) 
  58. everyEvent                        EQU        $FFFF                ; all of the above 
  59.  
  60. ; event message equates 
  61. charCodeMask                    EQU        $000000FF
  62. keyCodeMask                        EQU        $0000FF00
  63. adbAddrMask                        EQU        $00FF0000
  64. osEvtMessageMask                EQU        $FF000000
  65. ; OS event messages.  Event (sub)code is in the high byte of the message field. 
  66. mouseMovedMessage                EQU        $00FA
  67. suspendResumeMessage            EQU        $0001
  68. resumeFlag                        EQU        1                    ; Bit 0 of message indicates resume vs suspend 
  69. convertClipboardFlag            EQU        2                    ; Bit 1 in resume message indicates clipboard change 
  70. ; modifiers 
  71. activeFlag                        EQU        $0001                ; Bit 0 of modifiers for activateEvt and mouseDown events 
  72. btnState                        EQU        $0080                ; Bit 7 of low byte is mouse button state 
  73. cmdKey                            EQU        $0100                ; Bit 0 of high byte 
  74. shiftKey                        EQU        $0200                ; Bit 1 of high byte 
  75. alphaLock                        EQU        $0400                ; Bit 2 of high byte 
  76. optionKey                        EQU        $0800                ; Bit 3 of high byte 
  77. controlKey                        EQU        $1000                ; Bit 4 of high byte 
  78. ; obsolete equates 
  79. networkEvt                        EQU        10
  80. driverEvt                        EQU        11
  81. app1Evt                            EQU        12
  82. app2Evt                            EQU        13
  83.  
  84. app3Evt                            EQU        14
  85. app4Evt                            EQU        15
  86. networkMask                        EQU        $0400
  87. driverMask                        EQU        $0800
  88. app1Mask                        EQU        $1000
  89. app2Mask                        EQU        $2000
  90. app3Mask                        EQU        $4000
  91. app4Mask                        EQU        $8000
  92.  
  93. EventRecord             RECORD    0
  94. what                     ds.w    1
  95. message                     ds.l    1
  96. when                     ds.l    1
  97. where                     ds        Point
  98. modifiers                 ds.w    1
  99. sizeof                     EQU    16
  100.                         ENDR
  101.  
  102. EvQEl                     RECORD    0
  103. qLink                     ds.l    1
  104. qType                     ds.w    1
  105. evtQWhat                 ds.w    1                                    ; this part is identical to the EventRecord as... 
  106. evtQMessage                 ds.l    1                                    ; defined in ToolIntf 
  107. evtQWhen                 ds.l    1
  108. evtQWhere                 ds        Point
  109. evtQModifiers             ds.w    1
  110. sizeof                     EQU    22
  111.                         ENDR
  112.  
  113.     IF GENERATING68K THEN
  114.         Macro
  115.         GetDblTime
  116.             move.L $02F0,(sp)
  117.         EndM
  118.     ELSE
  119.         IMPORT    GetDblTime
  120.     ENDIF
  121.  
  122.     IF GENERATING68K THEN
  123.         Macro
  124.         GetCaretTime
  125.             move.L $02F4,(sp)
  126.         EndM
  127.     ELSE
  128.         IMPORT    GetCaretTime
  129.     ENDIF
  130.  
  131.     IF GENERATING68K THEN
  132.         Macro
  133.         SetEventMask
  134.             move.W (sp)+,$0144
  135.         EndM
  136.     ELSE
  137.         IMPORT    SetEventMask
  138.     ENDIF
  139.  
  140.     IF GENERATING68K THEN
  141.         Macro
  142.         _GetEventQueue
  143.             dc.w     $2EBC
  144.             dc.w     $0000
  145.             dc.w     $014A
  146.         EndM
  147.     ELSE
  148.         IMPORT    GetEventQueue
  149.     ENDIF
  150.  
  151.     IF GENERATING68K THEN
  152.         _GetNextEvent:    OPWORD    $A970
  153.     ELSE
  154.         IMPORT    GetNextEvent
  155.     ENDIF
  156.  
  157.     IF GENERATING68K THEN
  158.         _WaitNextEvent:    OPWORD    $A860
  159.     ELSE
  160.         IMPORT    WaitNextEvent
  161.     ENDIF
  162.  
  163.     IF GENERATING68K THEN
  164.         _EventAvail:    OPWORD    $A971
  165.     ELSE
  166.         IMPORT    EventAvail
  167.     ENDIF
  168.  
  169.     IF GENERATING68K THEN
  170.         _GetMouse:    OPWORD    $A972
  171.     ELSE
  172.         IMPORT    GetMouse
  173.     ENDIF
  174.  
  175.     IF GENERATING68K THEN
  176.         _Button:    OPWORD    $A974
  177.     ELSE
  178.         IMPORT    Button
  179.     ENDIF
  180.  
  181.     IF GENERATING68K THEN
  182.         _StillDown:    OPWORD    $A973
  183.     ELSE
  184.         IMPORT    StillDown
  185.     ENDIF
  186.  
  187.     IF GENERATING68K THEN
  188.         _WaitMouseUp:    OPWORD    $A977
  189.     ELSE
  190.         IMPORT    WaitMouseUp
  191.     ENDIF
  192.  
  193.     IF GENERATING68K THEN
  194.         _GetKeys:    OPWORD    $A976
  195.     ELSE
  196.         IMPORT    GetKeys
  197.     ENDIF
  198.  
  199.     IF GENERATING68K THEN
  200.         _KeyTranslate:    OPWORD    $A9C3
  201.     ELSE
  202.         IMPORT    KeyTranslate
  203.     ENDIF
  204.  
  205.     IF GENERATING68K THEN
  206.         _TickCount:    OPWORD    $A975
  207.     ELSE
  208.         IMPORT    TickCount
  209.     ENDIF
  210.  
  211.     IF GENERATING68K THEN
  212.         _PostEvent:    OPWORD    $A02F
  213.     ELSE
  214.         IMPORT    PostEvent
  215.     ENDIF
  216.  
  217.     IF GENERATING68K THEN
  218.         Macro
  219.         _PPostEvent
  220.             dc.w     $A12F
  221.             dc.w     $2288
  222.         EndM
  223.     ELSE
  224.         IMPORT    PPostEvent
  225.     ENDIF
  226.  
  227.     IF GENERATING68K THEN
  228.         Macro
  229.         _OSEventAvail
  230.             dc.w     $A030
  231.             dc.w     $5240
  232.         EndM
  233.     ELSE
  234.         IMPORT    OSEventAvail
  235.     ENDIF
  236.  
  237.     IF GENERATING68K THEN
  238.         Macro
  239.         _GetOSEvent
  240.             dc.w     $A031
  241.             dc.w     $5240
  242.         EndM
  243.     ELSE
  244.         IMPORT    GetOSEvent
  245.     ENDIF
  246.  
  247.     IF GENERATING68K THEN
  248.         Macro
  249.         _FlushEvents
  250.             dc.w     $201F
  251.             dc.w     $A032
  252.         EndM
  253.     ELSE
  254.         IMPORT    FlushEvents
  255.     ENDIF
  256.  
  257.     IF GENERATING68K THEN
  258.         _SystemClick:    OPWORD    $A9B3
  259.     ELSE
  260.         IMPORT    SystemClick
  261.     ENDIF
  262.  
  263.     IF GENERATING68K THEN
  264.         _SystemTask:    OPWORD    $A9B4
  265.     ELSE
  266.         IMPORT    SystemTask
  267.     ENDIF
  268.  
  269.     IF GENERATING68K THEN
  270.         _SystemEvent:    OPWORD    $A9B2
  271.     ELSE
  272.         IMPORT    SystemEvent
  273.     ENDIF
  274.  
  275.     IF OLDROUTINENAMES  THEN
  276.     ENDIF
  277.     ENDIF ; __EVENTS__
  278.